home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm8 / 00862_PH-IN 2.ls < prev    next >
Encoding:
Text File  |  1996-06-10  |  2.5 KB  |  66 lines
  1. on enterFrame
  2.   global gChapPrec, gTraduit, gMessDef1, gMessDef2, gMessSty2, gListSuj, gEtudAct, gEtudPrec, gEtatEtud, gPartie, gPosVideo, g1erSprChr, gMaxBoutons, g1erSprLoc, gBoutons, g1erSprNav, gBarChron, gScopePh, gSujAct, gListCodPhy, gListFicPhy, gDur, gListTimPhy, gFirst, gSujet0, gListHorPhy, gListDebPhy, gListFinPhy, gListRecPhy
  3.   curseur(6)
  4.   BigPurge()
  5.   if (gChapPrec = "PH") and (gEtudPrec = "FI") then
  6.     repeat with i = g1erSprChr to gMaxBoutons
  7.       puppetSprite(i, 1)
  8.     end repeat
  9.     gScopePh(visible, 1)
  10.     spriteBox(g1erSprLoc + 3, getAt(getAt(gListRecPhy, gSujAct), 1), getAt(getAt(gListRecPhy, gSujAct), 2), getAt(getAt(gListRecPhy, gSujAct), 3), getAt(getAt(gListRecPhy, gSujAct), 4))
  11.     gBarChron(fleche, 1, getAt(gListTimPhy, gSujAct), 0)
  12.     go(label("PH:RN"))
  13.   else
  14.     if gSujet0 <> 0 then
  15.       set premier to 0
  16.       set moncod to gSujet0(Le_Code)
  17.       set gSujAct to getPos(gListCodPhy, moncod)
  18.       set monIndex to getPos(gListCod, moncod)
  19.       set maPos to getAt(gListHorPhy, monIndex)
  20.       set maPos to maPos * 4
  21.       put ">>" && maPos
  22.       gScopePh(SetTime, maPos)
  23.     else
  24.       set premier to 1
  25.       set maPos to getAt(gListDebPhy, 27)
  26.       set maPos to maPos * 4
  27.       gScopePh(SetTime, maPos)
  28.       set gSujAct to 1
  29.       set gSujet0 to getAt(gListSuj, gSujAct)
  30.       set gDur to getAt(gListFinPhy, 27)
  31.       set gDur to gDur * 4
  32.       sound fadeOut 1, 30
  33.     end if
  34.     repeat with i = g1erSprChr to gMaxBoutons
  35.       puppetSprite(i, 1)
  36.     end repeat
  37.     set the visible of sprite g1erSprLoc to 1
  38.     set nSuj to getAt(gListSujPhy, gSujAct)
  39.     set moncod to getAt(gListCodPhy, gSujAct)
  40.     if nSuj <> 0 then
  41.       set the visible of sprite (g1erSprNav + 3) to 1
  42.       if nSuj <= 18 then
  43.         set the visible of sprite (g1erSprNav + 1) to 1
  44.         if gSujet0(Le_Statut) = "A" then
  45.           set the visible of sprite (g1erSprNav + 2) to 1
  46.         end if
  47.       end if
  48.     end if
  49.     set the visible of sprite (g1erSprNav + 4) to 1
  50.     set gMessDef1 to getAt(gTraduit, 64)
  51.     set gMessDef2 to " "
  52.     set gMessSty2 to " "
  53.     gScopePh(Box, 20, 92, 280, 256)
  54.     gScopePh(visible, 1)
  55.     set the visible of sprite 2 to 1
  56.     spriteBox(g1erSprLoc + 3, getAt(getAt(gListRecPhy, gSujAct), 1), getAt(getAt(gListRecPhy, gSujAct), 2), getAt(getAt(gListRecPhy, gSujAct), 3), getAt(getAt(gListRecPhy, gSujAct), 4))
  57.     set the visible of sprite (g1erSprLoc + 3) to 1
  58.     gBarChron(fleche, 1, getAt(gListTimPhy, gSujAct), 0)
  59.     if premier = 1 then
  60.     else
  61.       go(label("PH:RN"))
  62.       curseur(-1)
  63.     end if
  64.   end if
  65. end
  66.